home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / PATH_ENV / TEXTQUEU.D < prev   
Encoding:
Modula Definition  |  1990-06-21  |  368 b   |  22 lines
  1. DEFINITION MODULE TextQueues;
  2.  
  3. TYPE    TextQueue;
  4.  
  5. (*
  6.  * Lesen aus der Schlange
  7.  *)
  8.  
  9. PROCEDURE Reset (q: TextQueue);
  10.  
  11. PROCEDURE GetNext (q: TextQueue; VAR str: ARRAY OF CHAR): BOOLEAN;
  12.  
  13. (*
  14.  * Schreiben in die Schlange
  15.  *)
  16.  
  17. PROCEDURE Clear (q: TextQueue);
  18.  
  19. PROCEDURE Append (q: TextQueue; REF str: ARRAY OF CHAR; VAR ok: BOOLEAN);
  20.  
  21. END TextQueues.
  22.